home *** CD-ROM | disk | FTP | other *** search
/ Hunter 2006 / Hunter 2006.iso / soft / sleipnir241.exe / {app} / scripts / ƒ†[ƒeƒBƒŠƒeƒB / ”CˆÓ‚̃tƒHƒ‹ƒ_‚ɃVƒ‡[ƒgƒJƒbƒg‚ðì¬.vbs < prev    next >
Text File  |  2006-06-15  |  3KB  |  92 lines
  1. '***************************************************************
  2. '
  3. '        öCê╙é╠âtâHâïâ_é╔âVâçü[âgâJâbâgé≡ì∞ɼüi2002/09/06üj
  4. '                                        written by sleepy
  5. '
  6. '***************************************************************
  7.  
  8. Option Explicit
  9.  
  10.     Dim objWshShell, objEnv, obj, document, id, ROOT_DIR, TEMP_DIR
  11.     Set objWshShell = WScript.CreateObject("WScript.Shell")
  12.     Set objEnv = objWshShell.Environment("Process")
  13.     Set obj = CreateObject("Sleipnir.API")
  14.     id = obj.GetDocumentID(obj.ActiveIndex)
  15.     Set document = obj.GetDocumentObject(id)
  16.  
  17.     'ò█æ╢â_âCâAâìâOé╠rootâfâBâîâNâgâè(ROOT_DIR)é╞êΩÄ₧ò█æ╢âfâBâîâNâgâè(TEMP_DIR)é╠É▌ÆΦ
  18.     ROOT_DIR = ""
  19.     TEMP_DIR = ""
  20.  
  21.     If document Is Nothing Then
  22.         Call obj.MessageBox("Document é≡ì∞ɼé┼é½é▄é╣é±")
  23.     Else
  24.         Dim objRegExp, objShell, objExistsCheck, objFolder, objURLShortcut
  25.         Dim ShortcutDir, RDir, PageURL, PageTitle
  26.  
  27.         If TEMP_DIR = "" Then
  28.             TEMP_DIR = objEnv.Item("TEMP")
  29.         End If
  30.         If Right(TEMP_DIR, 1) = "\" Then
  31.             TEMP_DIR = Left(TEMP_DIR, Len(TEMP_DIR) - 1)
  32.         End If
  33.  
  34.         Set objRegExp = New RegExp
  35.         objRegExp.Pattern = "\\|\/|:|,|;|\*|\?|""|<|>|\||    "
  36.         objRegExp.IgnoreCase = True
  37.         objRegExp.Global = True
  38.         PageTitle = objRegExp.Replace(CStr(Trim(document.title)), "")
  39.         Set objRegExp = Nothing
  40.  
  41.         ShortcutDir = TEMP_DIR & "\" & PageTitle & ".url"
  42.         PageURL = obj.URL
  43.  
  44.         Set objShell = WScript.CreateObject("Shell.Application")
  45.         Set objExistsCheck = WScript.CreateObject("Scripting.FileSystemObject")
  46.  
  47.         If ROOT_DIR = "" Then
  48.             RDir = 0
  49.         Else
  50.             If Right(ROOT_DIR, 1) = "\" Then
  51.                 ROOT_DIR = Left(ROOT_DIR, Len(ROOT_DIR) - 1)
  52.             End If
  53.             RDir = ROOT_DIR
  54.         End If
  55.  
  56.         Set objFolder = objShell.BrowseForFolder(0, "ò█æ╢é╖éΘâtâHâïâ_é≡ÄwÆΦé╡é─ë║é│éóüB", &h0040, RDir)
  57.  
  58.         If Not objFolder Is Nothing Then
  59.             Set objURLShortcut = objWshShell.CreateShortcut(ShortcutDir)
  60.             objURLShortcut.TargetPath = PageURL
  61.             objURLShortcut.Save
  62.             Set objURLShortcut = Nothing
  63.             If objExistsCheck.FileExists(ShortcutDir) Then
  64.                 On Error Resume Next
  65.                 objFolder.MoveHere ShortcutDir, &h0400
  66.             Else
  67.                 obj.MessageBox("ÄwÆΦâtâHâïâ_é╓é╠ò█æ╢é╔Ä╕ösé╡é▄é╡é╜üB")
  68.             End If
  69.         End If
  70.  
  71.         If objExistsCheck.FileExists(ShortcutDir) Then
  72.             obj.MessageBox("ÄwÆΦâtâHâïâ_é╓é╠ò█æ╢é╔Ä╕ösé╡é▄é╡é╜üB")
  73.  
  74.             'Ä╕ösé╡é╜Ä₧üAêΩÄ₧ò█æ╢âtâHâïâ_é╠âVâçü[âgâJâbâgé≡Äcé╡é╜éóÅΩìçé═é▒é╠ë║é╠éPìsé≡âRâüâôâgâAâEâgé╡é─ë║é│éóüB
  75.             objExistsCheck.DeleteFile ShortcutDir, False
  76.  
  77.             Err.Clear
  78.             On Error Goto 0
  79.         End If
  80.  
  81.         Set objFolder = Nothing
  82.         Set objExistsCheck = Nothing
  83.         Set objShell = Nothing
  84.         Set document = Nothing
  85.  
  86.     End If
  87.  
  88.     Set objEnv = Nothing
  89.     Set objWshShell = Nothing
  90.     Set obj = Nothing
  91.  
  92.